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Table of confents 

(2) 2546 read write data 

(3) 437 t code 

(4) 739 SCB initialization and XDELTA breakpoint 

(5) $ rpbd initialization 

(6) ae initialization 

(8) 1272 specific device boot subroutines 

(11) 1544 boot a specific disk unit routine 

(12) 1797 scb interrupt routines 

(16) 1966 calculate floating CSR address 
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oeabetas980 10:42:97 LOVIROM.BUGSRCIVMBUVAXTP.MAR LE? (1) 
title VMB_MICROVAX_I 
-ident /v04.0-06/ 


pee eeeerreeercererererertererereerererererterereerererereeeeeeerereererererere 


3 ° 
;* copy! ht (c) 1984 * 
9 ‘* by DIGITAL Equipment Corporation, Maynard, Mass. ‘ 
° & 
;* This software is furnished under a License and may be used and copied * 
000 10 ;* gnty in accordance with the terms of such License and with the « 
0 1] ;* inclusion of the above copyright notice. This software or any other * 
12 :* copies thereof aty are be provided or otherwise made availabie tc any * 
1 * other person. No title to and ownership of the software is hereby * 
0000 14 ;* transferred. e 
0000 15 ;* e 
8 16 ;* The information in this software is subject to change without notice * 
0 17 ;* and should not be construed as a commitment by DIGITAL Equipment *« 
09 ! ;* Corporation. 7 
‘@ e 
000 ;* DIGITAL assumes no responsibility for tne use or reliability of its * 
+ ;* software on equipment which is not supplied by DIGITAL. * 
‘@ te 
0000 SRHKHHHHHHEHHKKHHHHHHHTHEHHEHEKAHeeeReeeeteReteteteneeteteneeeeeeetetereeerere 
$009 Facility: 
00 Bootstrap for the MicroVAX I. 
Abstract: 
00 This module contains a modified version of the VMB which resides 


3 on ROM in the MicroVAX I, and is intended to be used as an 

: intermediate bootstrap which is not restricted by the size of the 

; ROM and which allows the MicroVAX-] eystes to boot from floating-CSR 
; devices. Should the ROM in the MicroVAX I ever become large enough 
3 to enc ass the new features contained herein, this intermediate 

; VMB should work equally as well as the primary VMB. 


Once assembled and Linked, this bootstrap procedure must reside 
on a device with a fixed CSR under the name ‘‘sysboot.exe’’. When 
the user boots from this disk, this bootstrap program prompts the 
user for the name of the device he really wants to boot from. 

The P which is tacked onto the end of the name of this and some 
other modules stands for ‘prompting version. 


AEA OS OD NAME WIN CO OOD ANEW OO OD NOUN EW OOOO Ew 


For information about patching the intermediate VMB. see 
sys$update: vabuvax!.com. 


: Author: R. Heinen 
Date: July 1983 
Modifications: 
v4.0-06 0GB0107 Donaid G. Blair 19-DEC-1984 


Change address offsets so they are relative 
to the end of VMB code rather than the start 


PEE EEE EES 


NOUS WO 


VMB_MICROVAX_1 
Voor0-06 © 


00000001 


F 15 


V4.0-05 0GB0105 


V4.0-04 DGB0104 


V4.0-03 DGB0100 


V4.0-02 DGB0094 


V4.0-01 JESO001 


¥1.0-01 WHMO001 


Sbdtdef 


$ordef 
Spruvidef 
$rpbdef 
$ssdef 
Svabargdef 


btd$k_prom = 8 
btd$k_qna = 96 


Os 2 8 6 4 2 6 4 te 


=JAN-1985 17:32: /v" o 
2F-petn 48 4 Ha rat 33 OV IRON. BUSSRCSURBGVAXIP. ARCS” d) 


of the RPB so the intermediate VMB will work 
on old MicroVAX I ROM's. 


Donald G. Blair 6-DEC-1984 
Since the intermediate VMB pushes SYSBOOT out 
past the end of the 64K bytes of tested memory, 
test the extra pages for memory errors. 


Donald G. Blair 25-NOV~1984 
Fix intermediate VMB so it doesn't try to re-load 
the SCB in the middle of its own code. 


Donaid G. Blair 15-NOV-1984 
Move patch_device_name to the beginning of 
= program to minimize possibility of its address 
changing. 


Donald G. Blair 2-NOV-1984 
Add DA and DJ as device name synonyms for DU. 
Set controller letter for boot device so it does 
not change between boot time and system startup. 


Jack Speight September 1984 
Added support to boot any device using Rod Gamache's 
VMBUVAX2 floating CSR calculations. 


Bill Matthews July 1984 
Added support for sonny VMB as a secondary bootstrap. 
Added support for the RLO2 boot driver. 


vab$secondary == 1 


idefine boot driver descriptor 
idefine boot driver offsets 

idefine boot device types 

sdefine VMS image header 

sgeriae 1/0 function codes 

zipl's 

idefine adapter types 

processor registers 

sprecessor registers for MicroVvAXx | 


:define VMS status codes 
define VMB arguments 


; define some new btd symbols 


Peeteeeereerererereereereerereeeeeeeereteeeteneeneeeeneeereeeeererenerere 


<< 
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«byte h_unit 
«byte type 
«byte rank 
«byte modulo 
-byte ata 


. long pesrrphy_a_io_space 
-long = rtn=L 


; define macros to aid with error message printing 


-macro fatal_message code 
f nb,code 
movzwl #ss$_‘code,r0 


brw fatal_error 
«macro msg_def mname,txt 


-word a_‘mname-. 
~-Save_psect 
-psect $$$$10boot. byte 
last_msg =. 
a_‘mname: 
easciz \txt \ 
-restore_psect 
iff 
-word lLast_msg-. 
-endc 
-enda 


: define local data structure offsets 


WN OD NOUN WN 0 OD NO NEW $$ OOD NOU EAI OOO NOU FW "OW ONOU 
a 
e 
bo | 
a 
oa 
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; define boot device desc structure 


uw 


Sdefini bd 


lt el el el eel el el el elt el ll elt ells lt lt elt cells ells elt allt elt lt sels calls ls casas alls lle cells lls ils ell canals cll sails sail, sally salle sails call asl, alts ally 


<< 


voo20=06 =! ADEC=19RE 10:48:87 EOROR.BuGSRcHuMeuvaxIPmARSe® chp 


gmaxctrl=0,711 
xff 


i} ; define a macro to define boot driver names etc. 

17° 

11 “aeere boot device name,h_unit.pcsr,type,rtn,rank=0,modulo=0 

11 -lif gt <modulo-*xff>, .efror ; maximum value for modulo 

1 if gt <maxctrl=*xff>, .error ; maximum value for max_ctrl is “xff 
121 U1: -asciz /name/ 


VAB_MICROVAK_1 
Vor r0 06 ye 


Le 


00000007 


20000000 
00002000 
0000007F 


00000000 
00000400 


00000E00 
00018000 


1 
2 


Bon 


POPPIN IPIPINIPINIPIPIPIPIPININIMINININ INI 8 tt a st so tt tt ns ss 


Nororononononorong 


CONAN WS GS 


tt ant nl ld ld wd ed 8 PHD ODODOOOO OOO O00 000 ODD DODDWMwwe VIN 


2i=pee=1986 10:18:09 


bd_b_max_ctri: .blkb 1 
bd_b_spare: -blkb 1 
bd_a_csr: eblkl 7 
bd_a_routine: .biki 1 
bd_s_bd: 

$defend bd 


; define local data constants 
MAX_CTRLRS =7 
: define local data constants 


phy_a_io_space = *x20000000 
; define extents 


_max_memory_pages = 
_max_io_pages = 


be ied 


: define addresses to be used to locate 


k_scb_addr = *x0 
k_pfn_map_addr = *x400 
k_next_boot_addr = *x0e00 
k_max_boot_len = *x18000 


: define MicroVAX I machine check codes 


Kaparit -error = 1 
k_bus.timeout = 2 


: define scb vectors used here 


scb_a_macheck = 4 
scb_a_write timeout = *x60 
scb_a_breakpoint = “x § 
scb_a_trace_trap = “x 


> define tits in MicroVAX I switch pack 


physical address of I/0 space 


z;max number of pages 
max pages in one I/0 transfer 


sections of memory. 


used here 


AX/VMS Macro y04-00 Page 4 
UV1ROM.BUGSRC JVMBUVAX1P.MAR;4 (1) 


offset from vmb_end to start of scb 
offset from vmb_end to start of 


pfn map. 
offset from vmb_end to start of 
next bootstrap 

maximum Length in bytes of the entire 
bootstrap, including the rpb, primary 
vmb, pfn bitmaps, intermediate vmb, 
sysboot and other miscellaneous 
intervening pieces. 


<<s 
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-DEC- UV1ROM.BUGSRC JVMBUVAX1> .MAR; v¢ 
90900006 f switch_v_QVSS PY $ i: 1 if normal, 0 if avss i 
00 switch_v_disk_boot 2 : 1 if normal, 0 if disable disk search 
: : define MSV-11 Memory controller values 
20001440 $ msvil_csr_base = “x1440 + phy.a_io_space 
00000001 § msvll_csr_parity_enable = 
4 
ty i define led values 
fe 
QO000F OD 44 Led peee' te ok = “xf0d 
90000F OE 45 led_boot_ifprogress = “x xf0e 
O0000F OF ri led-tranSfer_control = “xfOf 
000 
4s a3 define console halt code 
0000 38 . 
00000F05 0000 52 console_halt = “xf05 
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-sbttl read write data 

-psect $$$$04boot, long 
: ay device_name is used by the intermediate vmb to determine the 
; boot device fame. If the customer has patched a device name into 
3; this location using the SYSSUPDATE:VMBUVAX1.COM command procedure, 
; we boot from this device. Otherwise, we prompt the console device 
; to find out the name of the system disk. 
SRRHAAKHKEKEKAT HKALE TAAEKERHeKeHAHeeRerReeeereeeeteeeeeeeeseeee 


WARNING 


;* The address of patch_device_name is hard-coded into the 
systupdete:vabuves!.fos command procedure. If you cause 


a 
e 
a 
® ® 
* address of this location to change, you will break : 
” the command procedure. * 
> * 

® 


PUReeererereeerreeereeekekeKeeeeneeeeeeteeeeeeReteekeeeteeeeeee 


patch_device_name:: 
-BLKC 1 


; strings used for file opens 


vms file: of standard secondary 


Name 
-ASCIC /CSYSO.SYSEXEJSYSBOOT.EXE/ ;bootstrap image file. 


diagfile: Name of standard diagnostic 
«ASCIC /CSYSO.SYSMAINTIDIAGBOOT.EXE/ ;secondary bootstrap image. 


namepr 2 Prompt string for secondary 
mp SC1Z <13><10>/Boctfile: / sboot file ole. 


Soynansprones) ; 
-ASCIZ <13><10>/Boot Device: / ;Prompt string for boot device name 


> define boot device priority Lists 


synonym_device_list: ; synonyms for DU 


boot device See eee pe > « Btdgh ude disk boot .¢6 
boot device DJA,5,<*X1468>, btd$k_uda,disk_boot,26 


9 (3) 
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00 20 2C 52 4F 52 


0000800 
0000801 
00008018 


0000 o08 
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read write data 
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aA HMMM 
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ee ee ee ee AP a 


boot _device_List: 


boot device 
boot_device 


no_disk_boot_device_list: 


boot device 
boot device 
~wo 


; define text to correspond to ss$_ values. 


message _header: 
.asciz. <13><10>/2%B00T-F-ERROR, / 


define some ss$_ 


nosuchdev,<None of the bootable devices contain a program image> 
“Device is not ve 

nosuchf Le,<Program ima 
sae pedis, boo 


devassi 


ad of 
bodt Leneae <Invalid filename> 
buf ferovf,<Pr 
ctrlerr,<6 


devoffline, 
danny 
f norom 
nosuc hnog 
-word 
: writable data 

: -ALIGN LONG 


UV1ROM.BUGSRC YRBUVAX1P. MAR; 7} 


>, btd$k_prom,prom_boo 
> -DtdSk qna,network_ boet,,4" x10>,1 
simplant a zero fname 


codes that are only used here 


device wee structure> 


Rotentg<inval i program image format> 


e does not fit in available memory> 
oot device | 6 error> 
f devinact, <Failed to Linitialize boot device> 


Suisre’ leleie ott 

tialization error> 

cbint, pratiertte SCB exception or machine check> 

a oycent ten after starting program image> 


?— th. from load server> 
terminate List 


VMB_MICROVAX_ 1 “JAN-1985 17:32: AX/VMS Macro v04-00 Page 
V04 .0- read write data -DEC- 214: UV -BUGSRC JVMBUVAX1P.MAR;4 (2) 
0070-06 d write d 2apeta198e 10:85:57 LOMINES. Bose RC neo ax g 8 
124 59 ; Parameter List handed from primary boot to secondary boot 
126 ; The first location contains the arqunene count. It is intended 
124 ; that the ey boot will know what is in the List based on 
124 ; the or qusert count and the VMB version number. [his means that 
126 65 ; new information should be placed at new offsets even if older 
1246 64 ; stuff becomes obsolete. The VMB version number can be used to 
! 2 eg ; totally change the argument meanings if necessary. 
1046 367° 
124 08 second_param: 
94a BE 124 fil$gq_cache == ,+vmb$q_filecache ;FILEREAD cache descriptor 
444d 124 boo$gb_systemid == .+vmb$b systeni¢ :SCS system id 
QOOOO00E 0124 71 . Lon <vagee ergbytcntss5/ Size of argument List 
1 7 rep ponte ore ytcnt=4 :Reserve space for the arguments 
1 7 -byte 
00 \¢ 74 -endr 
16 zg file _cache_desc: ;saved cache desc 
00000000 0160 7 -long 0 sto re-init the cache after error 
00000000 0164 4 slong 0 
bes 380 
B18 ; address of the RPB as a global 
1 o 
S16 4 boo$gl_rpbbase:: 
- Long 
00000000 016 5 l 0 
O1ee 389 
016C : ; machine check support 
O16¢ 
016C 91 machine_check_continue: contains 0 or that address to 
00000170 8156 , eblkl 1 transfer to after a machine check 
017 94; 
0170 95 ; error device name 
1? 96 ; 
17 98 boot_device_name: 
00000000 0170 399 . Long 
00 0174 400 -byte 0 
ae} 
17 4 g ; floating device modulo table 
4 $88 : (modulo value -1) 
17 $06 modulo _tbl: 
7 O17 40 BYTE Ro 14 3 DJ11 (rank = 1) 
F 176 $88 -BYTE “xOf 3; DH11 (rank = $3 
7 O17 4 -BYTE “x07 ; DQ11 (rank = 3) 
7 178 $19 BYTE “x07 ; DUT! (rank = 4) 
7 O17 41 -BYTE *%x07 ; DUPI1 (rank = 5) 
7 O7A tig BYTE “x07 3; LKIIA (rank = 6) 
7 O17B8 41 -BYTE “x07 ; DMC11/DMR11 (rank = 7) 
7 O17C 414 -BYTe “x07 : DZ11 (rank = 8) 
7 O17D 415 -BYTE *x07 ; KMC11 (rank = 9) 
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v04.0-06 boot code 21=DEC=1984 10:14:07 CUVIROM.BUGSRCJVMBUVAX1P.MAR;4 (3) 

! cf : -sbttl boot code 

19 3s ; ROM_START 

19 44] : functional description: 

19 108 : This code is entered after the MicroVAX I microcode has completed its 

19 444 ; restart/boot/halt poavens 6. it runs at IPL 31, in Kernel mode on the 
019 445 ; interrupt stack. The action is to initialize an RPB, setup a bitmap of 
019 ret ; useable memory pages and load the next part of the system boot based on 
0130 re ; the input flag settings. 

139 128 ; If the inputs include a specific boot device name that device and only 
019 450 ; that device is booted. On the otherhand, if no specific boot device 
8138 451 ; is specified then a priority ordered sequence of boot devices is tried. 
3198 re ; (In this case RO will be 0 or contain all blanks. 

9190 434 : As follows: 

0190 456: DU units 0,1,2,3 

0190 457; Other disks 

0190 458; ROM (See below for an explanation of how the ROM is found.) 

0190 600; $e 

0190 461: If none of these devices provide a bootstrap then a message is 
B10 186 3 displayed followed by a HALT. 

0190 464 : ROM systems are recognized by the boot memory search. A ROM system must 
0190 465 ; be aligned on a 4KB boundary and contain a foot print which is the same 
B19 298 ; as the second part of the boot block described below. 

0190 468 ; If the boot is from a mass storage device then for each valid volume 
0190 469 ; that is found, the volume is searched as a Files-11 volume and then 
0190 479 ; the secondary boot image is fourd. if the volume is not a Files-11 volume 
0190 471 ; then block 0 of the volume is read and checked to see if it meets the 
0190 438 ; standard for the boot block format. If not, the volume is not used and the 
B19 of? 3 next volume is tried unless a specific device was specified by the user. 
0190 475 ; The boot block format is: 

B18 £78 ‘ -owocceree gece caw ne +evceececan ¢onwecececn + 

019 478 : BB+0: H 1 n! any value | 

B198 228 § ¢oeseaseacfes s2ee poem caan ¢oeeeeecoan 7 

B16 480 ; | low LBN | High LBN H 

1? ? 1 3 fom we we oe ¢ecoeeecan ye emen es ¢oeewoeeecn 7 
? $ ; This second part is used for both the boot block and the ROM system. 

19 4 5 : towmowane beweewresn tonne woe doer ceen + 

19 4 $ : BB+(2tn)+0: : Chk } k 18( Hex)! 

19 4 : ger weosce peewee nea ¢eesceere bowen wr es + 
313 2 8 ; H any value, most Likely 0 H 

19 490 ; BB+(2*n) +8: : size in blocks of the image i; 

19 491 F taomoerscoe emewnmoce doe oweoeme ten ceceee + 

133 138 3 BB+(2*n)+12: | load offset H 

19 49 s pore sean $oeewoececoe pw ewe oee faewewnawe + 
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V04.0-06 boot code 2 “peta 1982 10:44:07 UV1ROM.BUGSRC VMBUVAX1P. MAR: 4? (3) 
49% ; BB+ (2*n)+16: | offset into image to start H 
495 ee ee $rmamoace te mmw ace + 
49 BB+(2*n) +20: + sum of the previous three LwW's! 
rh 44 pe Ome eefeoeeeeee}oocecoan poeceecan on+ 
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The input bits in R5 can contain a bit that disables the Files-11 search. 
If a Files-11 boot is done then the file booted is either: 

SYSBOOT.EXE = default 

DIAGBOOT.EXE = RS bit setting 

solicited from the console 


Details of how the memory look and the register settings when the 
secondary bootstraps are entered are documented where the exits occur. 


at et —§ DOODDOOOOOO 


inputs: 
9 = boot device name in ASCii or 0 if none specified 
= switch pack settings 1 is ‘ON’, 0 is ‘OF 
EF Ramen. 
7 Enable disk search during bootstrap 
1 if VT100/VT200 console, 0 if QVSS video option 
4-5 Halt action 
3 Console Break enabled 
2 Reserved 
0-1 Console baud rat? 


R5 = software boot control flags from the /N boot command qualifier. 
The following bits are used by this boot ROM code: 
Bit Meaning 


3 RPBSV_BBLOCK. 
If set, the attempt to Files-11 boot is skipped 
and only the boot block type boot is done. 


4 RPBS$V_DIAG. : 
alopnaes is hoot. Secondary bootstrap is image 
called CSYSMAINTJDIAGBOOT.EXE. 


6 RPBSV_HEADER. 
Image header. Takes the transfer address of the 
secondary bootstra suse from that file's 
image header. If RPBSV_HEADER is not set, 
transfers control to the first byte of the 
secondary boot fiie. 


DVDVPVLVIVLVLPV LULU LIULV LULU IV SIV IVSIUSV SL OIU LULU SUSU SUIS SU SUS USUAL USSF ASUS OS SISSY SIA SISAL ISIS SO 
OODNOA MENT O OODNOA UE WIN O OO NAME WN OOD NOUS WNC OMNOUSWR OO 


ee ae a ae ae ee a ed ee ee ae ee ee ae ee ae a a el a el ee a ed ee ed od ee ed oe ee 
DOB BBB BEE EE ANA nronononononononu nd 2 


0 
0 
0 
0 
0 
0 
0 
0 
9 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
Q 
: 
0 
: 
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—— 


Conversational boot. At various points in the 
system boot procedure, the bootstrap code 
solicits parameters and other input from the 
console terminal. If the DIAG is also on, then 
the Choqnant ve supervisor should enter ‘'MENU™: 
mode and prompt user for devices to test. 
1 RPB$V_DEBUG. 
page If this flag is set, VMS maps the code 
for the XDELTA debugger into the system page 
tables of the running system. 


2 RPBSV_INIBPT. ; 
Initial breakpoint. If RPB$V_DEBUG is set, VMS 
executes a BPT instruction immediately after 
enabling mapping. 


5 RPBS$V_BOOBPT. : 
Bootstrap breakpoint. Stops the prinsry 
and ey mead | bootstraps with a breakpcint 
instruction before testing memory. 


7 RPBSV_NOTEST, — iS : 
Memory test inhibit. Sets a bit in the PFN bit 
map for each page of memory present. Does not 
test the memory. 


10 RPBSV_NOPFND. 
No PFN deletion (not implemented; intended to. 
tel. v8 not to read a file from the boot device 
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19 1 8 RPBSV_SOLICT. 
19 2 File name. Prompt for the name of a 
? ; secondary bootstrap file. 
9 2¢ S RPBSV_HALT. 
9 2§ Halt Before transfer. Executes a HALT 
5 instruction before transferring control to the 
¢8 secondary bootstrap. 
60 <31:28> RPBS$V_TOPSYS 
561 Specifies the top level directory number for system 
286 disks with multiple systems 
8 The following bits are NOT used by this boot ROM code: 
566 Bit Meanin 
568 
569 0 RPBSV_CONV. 
570 
37) 
258 
574 
575 
6 
7 
8 
9 
0 
1 
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that identifies bad or reserved memory pages, 
so that MB does not mark these pages as valid 
in tne “FN bitmap). 


11 RPBSV _MPM. 
Specifies that multi-port memory is to be used 
for the total exec memory requirement. No local 
memory is to be used. This is for tightly-coupled 
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19 608 3 multi=processing. If the DIAG is also on, then 
13 603 : the diagnostic supervise- enters ''AUTOTEST'' mode. 
19 611 ; 12 RPBSV_USEMPM. 
19 o1¢ 3 Specifies that multi-port memory should be used in 
19 615 ; addition to local memory, as though both were one 
8138 ere 3 single pool of pages. 
0190 918 : 13 RPBSV_MEMTEST 
0190 617 ; Specifies that a more extensive algorithm be used 
0190 618 ; when testing main memory for !.ardware uncorrectable 
B138 619 ; (RDS) errors. 
190 620 ; 
0190 621; 14 RPBSV_F INDMEM 
0190 6 ¢ : Requests use of MA780 menory if MS780 is insufficient 
8190 7 $ for booting. Used for 11/782 installations. 
0190 625 ; r10 = original PC 
0190 626 ; r11 = original PSL 
0190 627 ; AP = halt code 
8135 . 8 3 SP = address of 64K memory block + 200 hex 
0190 630 ; implicit inputs: 
0190 631 ; 
0190 O36 3 IPL is 31, interrupt stack. 
3844 oer 3 The first instruction of this code is at SP. 
0190 635; All of the system's memory controllers have been 
0190 636; initialized to have parity error detect ON. This. 
0190 637; means that the 64K memory block that contains this 
0190 638 ; code has correct per ity, The cache is enabled and 
3190 o73 ; will continue to be enabled throughout. 
B95 of ; When the secondary bootstrap code gains control memory will look Like: 
0190 og 3 0 $e mmw meme we ew eeee seco ececoececeeccececec= + 
0190 644; + RPB + 
0190 645 : 200 mmm eeeeeoeeeeececeseeesecceccoecesceccs + 
0190 646 ; + 8K of Boot Code + 
B19 647 ; + boot driver preamble starts at 200 + 
019 648 = 46200 teen nnnnw www www ewww ene ween nn ene en eeee + (PR$_SCBB value) 
0190 649 ; + 2 Pages of SCB + 
0190 650 ; 4600 par “are er ngroaneer ene Bete oe woee } 
8138 651 ; +2 peges of PFN Bit Map described by + 
19 o2¢ : + RPB fields + 
0190 653 = GADD tennnnn nnn nnn nnn nnn n nn -- eee - eee ee + 
138 654 ; + available for stack (3 Pages) + 
819 655 s 5000 Guswsapenusanseennesess eee we ee Mowe ewe + 
138 656 3 + Secondary boot code image + 
190 65 . 
i 
139 661 ; The register contents when control is passed to the secondary 
1 662 ; bootstrap are: 
Hh 665 ; 
19 664 ; R11 = base address of RPB 
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19 665 ; AP = address of the secondary boot parameter block alla VMB 
19 296 3 SP_= current stack pointer 
12 oe ; PR$_SCBB = SCB address 
19 669 : If the intermediate VMB is being used, when the real secondary 
19 ? 9 ; bootstrap (e.g. SYSBOOT, DIAGBOOT) begin execution, memory is organized 
19 71 ; as below. Note that we use more than the 64kbytes of tested memory 
19 or¢ ; that has been allocated for us. If a memory error is found in the 
138 675 ; pillover area, we report an error and halt. Note also that the ‘'physical”’ 
19 674 . addresses given below are relative to the beginning of the 64Kbytes 
190 675 ; of tested memory. 
8138 9/8 ; 
8195 ore : 0 + RPB SSCS SSS SEOSEESTS CESSES EEEEEEBEEESS : 
0190 679; 200 hoanust Senmatmshenaninneens smeneerennts 
0190 989 § + 8K of Boot Code - VMBUVAX1.EXE + 
090 681 ; + boot driver preamble starts at 200 + 
0190 ong 3 4200 -oeooncen Seeeeeecooceoesesoeseeeeseseseeceeson + (PR$_SCBB value) 
0190 683 ; + 2 Pages of SCB + 
0190 684 3 4600 lala? yee ataprageaoinipaaant wen eee see + 
0190 685 ; +2 poges of PFN Bit Map described by + 
3198 rt 3 6a00 : RPB fields : 
Hh eas : $000 . available for stack (3 Pages) : 
0190 690 : + VMBUVAX1P. EXE ’ 
0190 692; vmb_end + k_sCb_addr: -s-s-n--- <n nnn n nnn n nnn n nee ----- + (PR$_SCBB value) 
0190 693; + 2 Pages of SCB + 
0190 694 ; vmb_end + kpfn_map addr: Cowaseneonnensacorses-cocese + 
0190 695 ; + 2 Pages of PFN Bit Map described by + 
190 696 + PB ¥feud ; 
0190 698: + available for stack (3 Pages) + 
0190 99 ; vmb_end + k_next_boot_addr: ------<---<<-------------- + 
0190 00 ; + Secondary bootstrap + 
0190 701 ; + (at this writing, SYSBOOT or other + 
0190 Ne 3 + 2ndary bootstrap begin at AC00) + 
0190 70 é 9 UR coger were nwre ecw weer 2 ee em we we wm eww + 
Hh 704 ; + Room for expansion + 
019 705 3 k_max_boot_len: Fw meweeewe eee eee eee eeeeeeeeeseseeeeces + 
0190 09 
B138 88 
B12 og : create a label to point to the end of VMB. 
0 ; 
019 ar 
' ot? wn pe -psect ___Z22VMB_END, pace 
015 oe se. 
if ; the label rom_base is (and must remain) the first location in the boot ROM 
719 ° 
$9 -psect $$$$00boot, long 
721 ROM_BASE: 
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018D* 31 0000 $4 brw rom itransfer control to actual code 
83 82 81 80 96 0003 ? «byte 6,* 780 ."181,°x82, “x83 i footprint 
5 -psect $$$$04bo0t, long 3 
5 ROM_START: 
8 default displacement,word 
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1° 4 9 «Sbttl SCB initialization and XDELTA breakpoint 
26 «#OF ODA + 4 § mtpr #*xf ,#or$_mcesr sreset any machine checks 
19 734 ; 
i f ‘ ; setup SCB for the duration of this execution 
193 737° 
a's 9E 019 7 8 10$ movab vmb_end + k_scb_addr += ;address scb plus two pages 
7 19 7 *x400,r7 
5 FF 8F 9A 0198 740 movzbl #255,r ; ;setloop count DIV 2 
77 sae) DE Q19C 741 178: moval unfigided_scb_int+1,-(r7) saddress general error routine 
F859 F& O1AI tg sobgeq r9,17$ ;continue in loop 
$2 AF D4 Bias 74 clr machine check_continue ;init machine check continue address 
O735'CF 9E OIA? 744 movab poch ine check detect?! ,= zinit machine check vector 
04 A7 O1AB = 745 scb_a_mcheck(r7) : 
O8DD'Ch 9E OAD 748 movab write timeout_int+1,-_;init write timeout vector 
60 A? o1B1 747 scb awrite timeout (r7); 
11 57 DA O1B3 748 mtpr r7,¥pr$_scbb sinsert scb address in PR 
0186 749 
0186 20 ; ; 
0186 751 ; Read the system identification processor register to discover which 
0186 P36 ; kind of VAX is to be booted. 
0186) «6753; 
01B6 754 
58 3 0B 0186 755 mfpr #pr$_sid,r8 ;Read the CPU identification 
B18) 756 t sprocessor register. 
58 58 €8 8F 78 0189 757 ashl #-pr$v_sid_type.r8,r8  ;Get CPU identification code. 
OOOO'CF 58 90 018 758 movb r8,exe$gb_Cputype iSave processor code globally 
OIC 759 zin boot driver desc table 
O1C 760 
O1C 761 ; 
O1C 166 : If we are LINKED as a SECONDARY the following reference 
O1C 765 ; will be non-zero. 
O1C 764 ; 
01C3 765 .WEAK VMBSSECONDARY : , 
01 o5 O1C3 766 TST #VMBSSECCONDARY ; are we pretending to be a secondary? 
Oc 13 O1C5 767 BEQL 608 ; br no, continue | 
51 20 AB D0 O1C7 768 MOVL RPBSL_SOOTR1(R11),R1 ; else, set up boot registers 
52 24 AB «67D «(O01CB 769 MOVQ RPB$L_BOOTR2(R11),R2 : Kon 
546 2C AB 7D He ory mOVa RPBS$L_BOOTR4(R11),R4 3 eee 
1D re 60$: 
1D tre 3 ; 
1 ore ; Copy boot ri thru boot r5 from primary bootstrap 
51 0 AB 00 O1D 76 mov l rpb$l_bootri(r11),r1 z;use same boot rl as rom VMB 
26 4 AB 00 Q1D 77 movl rpb$l_bootr2(r11),r ;use same boot r2 as rom VMB 
5 8 AB 00 0108 ore movl rpb$l_bootr3(ri1).r suse same boot r5 as rom VMB 
Gh C AB DO ODF 77 mov l rpb$l_bootr4(r11),r4 suse same boot r4 as rom VMB. 
55 0 AB 00 ies i , movl rpb$l_bootr5(r11),r5 suse same boot r5 as rom VMB 
ee § : If the DEBUG flag is defined (meaning that XDELTA has been Linked 
167 785 ; with this primary bootstrap), set up 2 XDELTA handlers in the SCB -- 
1E7 784 ; one for breakpoints and one for tbit traps. Then initialize the 
Bie! 785 ; XDELTA breakpoint table, allocate 3 pages of stack, and, if requested, 
167 786 ; execute a breakpoint before proceeding with the bootstrap. 
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«weak xdt$breakpoint 

eweak xdt$tr ce. trap 

-weak = xdtSinitial_break 

tstl #xdt$breakpoint ; Test if XDELTA is Linked 
dt ; Br if not 


nox : r 
movab xdt$breakpoint+!,scb_a_breakpoint(r7) ;Set up BPT handler. 
movab xdt$trace_trap+1,scb_a_trace_trap(r7) ;Set ye TBIT handler. 
movab ini$brk, xdtSinitial break ;Store the initial breakpoint. 
r 


;Save current top of stack. 


movab vmb_end + saddress a stack 
k_ next_boot_addr.sp 
bbc #rpb$v_boobpt rS.nobrk ;1f no BPT was requested in the 


;boot flags, just proceed. 


; Initial breakpoint. 

: Current register status is as follows: 

: RO-R5 == initial input values 

3 R6 - SP value at start of ROM code 

: R7 - address of the SC 

; R8 - processor identification code 

: R9 - destroyed 

: R10-FP = initial input values 

: SP - address of a 3-page stack 

; Code following the breakpoint $s going to restore SP to its original 

; value. If you want to modify SP in XDELTA, modify R6 instead. 

ini$brk:: :Debugging breakpoint. 
bpt Stop in XDELTA. 

NOBRK : :Proceed with bootstrapping. 
mov l r6,sp srestore stack pointer 
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] 3 sbttl rpb initialization 
! 9 3 ; initialize and address the RPB 
1 Py 
56 658 0 1 : mov l zaddress rpb with temp reg 
1C AG 9 D % 4 mova A pbs bootr0(ré6) ;Save registers 
4 Ab 7D 1 5 movg rpb$l_bootr2(ré) : 
C A6 4 7D 19 § movg r4,rpb$l-bootr4 (ré) 3 
1 8 ; To solicit a boot device name, call a device-independent subroutine that 
1 : 9 ; writes a prompt string to the console terminal, and then reads the 
; re 3 user typed boot device name. 
1 842 
01 o 1 i tstl #VMBSSECONDARY sare we _Bretending to be a secondary? 
se #861 @ ; 44 beql 10$ continue 
1C A6 = FDD7 CF 0% 0 St mov l patch. device_name,rpb$l_ bootr0(r6s ;Save patch device name 
16 12 0228 46 bneq za device? then br, no device continue 
20 A6~ OOD 8 D 847 pushl rpb$l_bootr1(ré6) iPass options switch settings 
68 AG OOF S38 pushab ppbst_ file(ré6) Set address of input buffer. 
0S op 0 49 pushl 7Set maximum character count. 
FEOD CF OF O 850 pushab devnameprompt Set address of prompt string. 
OOOO'CF 04 FB 0239 $2) calls #4, ppoosteader Ms :Prompt and read string. 
69 A600 8 if 26 mov | rpb$t_file+l(ré6 tsave device name as boot r0 
1C A6 8 r $37 rpb$l"bootr0(ré6) 
024 855 10$: 
10 A6 «655A OD 8 4 $28 movg rye. robst 6 haltpc (r6) zsave halt PC and PSL 
66 56 00 4 He movl r6 $.rpbe Base’ re) saddress of RPB 
FFI9 CF «656 8600 026A 58 mov | r6,bo0$ i. rpebe zalso a rapes o 
18 A6 =65C) | =O CO 24F 59 movi a. gre Ra teode(r6) save alt 
046 AB D4 53 60 clrl rpb$l_restart(ré sinit header fields 
OC A6 4 28 61 clrl reps retrefigtre) : 
08 A6 O01 CéCé#CEEE 5 o¢ mnegl rpb$l_chksum(ré6) 
34 AG OOOO'CF 9 5 6 movab beotal vector, rpb$l_ iovec (r6) zinsert address of driver 
00 of 00 2C 026 64 mOVC nit remainder of RPB 
38 AG D1 He 6 65 arpDse. (ength=rpbSt_ Jevecsz, rpb$l_iovecsz(ré6) 
58 $ 4 6C 6 movl jset future RPB address 
0080 cB 5 4 F 6 mov . FpDBL scbb(r11) save scbb address in RPB 
cB $8 4 68 movb #ndt$_ub0,rpb$b_confre (HD zone Qbus on Micro-VAX I. 
O0A1 CB B80 As , movw #ndt$_ub0,rpb$w_bootndt(r11) ;Pretend this is UNIBUS. 
7E 71 3 
43 , ; init the secondary bootstrap parameter block 
7E «874° 
5C FEA2 CF E 7 75 movab second ate .ap ;load its base address 
Oc ac O01 CE 7 mnegt #1,vmb$l_lo_pfn(ap) iset pfn data 
10 ac) 6—01-Ss«éCE 78 mnegl #1,vmb$l~hi_pfn(ap) set pfn data 
fy 3 
; address larger stack and setup free memory pointer 
ccee"es 9E 0, 4 15$: movad vmb_end + - zaddress target for 1/0 
E F 84 k- “next _boot_addr,sp tand create a three page stack 
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SA SE DO 0290 885 mov sp.r10 :copy to address of free memory 
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g 7 j -sbttl memory initialization 
3 : : initialize parity memory 
4 $3 : allocate and init RPB PFN bit map 
9 93 * 
44 AB 01 QA 78 ."] 94 ashl we. #i, aes Fo grey he: set size to 1024 bytes 
0600" CF 9E 8 9 95 movab vmb_end+ Am e.egdr.= zset up pfn desc addr 
9 9 rpbsq. 4" mapa Fi 1) 
00 2c 9 9 movc5 #0, Rs 5B). ; init to zeroes 
O4OO'CF 44 A 9 cgbsa spfimapcet -vmb_end+k_pfn_map_addr 
+ EBF CF CRA 3 A 9 movab b*5 ine_check cont {nue ee continue address 
59 ew er DO O2A 00 mov l #k_max ‘neuer _pages-1,r9 number of last eonery page 
Bons ES B 901 bbs #switch_v_qvss,rpb$l_ boottitr] 39 $;if set console not QvSs 
59 7 9$000 00 sf C a9 «9 é subl #512,r97 selse ~ last 256k used for QVSS video 
8 : 3 3$: setipl #*x1d-1 slower IPL to allow write timeout 
02c 905 ; 
8 : a ; sweep all of memory to set parity and establish bit map 
02c3 908 * 
FEA2 CF O37E"CF 9E O2C 5$: movab = nmxm_memory,machine_check_continue ;enable machine check 
56 7C O2C clrq r6 Tset first physical address 
02C zero page count 
58 008C CB 9E C movab hs the memdsc(r11),r8 jaddress first aoneey descriptor 
68 04 clrl (r8) init page count 
04 A8 O01 CE mnegl #1,4(r8) iset very low P 


: write 0's to a page 
page_boundary: 


“6 TF OULU ashl #9,r7,r6 ;compute page address 


: don't write O's in the 64k where this code is 
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2 - cmpl rii,ré6 :compare addresses to find out 
42 ig bneq $ sor if not in the 64KB of good memory 
Oc AC OD tstl vmb$l_lo_pfni sp) slow pfn inited? 
046 «18 bgeq 10$ -br if yes 
Oc AC 57 00 5 mov | r oyabSl_la_pintap) zinsert base of area as lowest PFN 
04 AB ODS 3 10$ tstl 4(r8) memory cone PFN set yet? 
06 18 C bgeq 15$ ibr if y 
04 AB 57 DO mov l r7,4(r8) insert ‘this low PFN 
29 01 ¢ 15$: mnegl #i,r iset all bits in a re ister 
0400'CF a 7. ¥ insv r0,r7,#32,vmb_end + k_pfn_map_addr senable 128 pages 
0404 '°CF . oe 23 F § insv r0,r A ,vmb_end + k_pfn_map_addr+4 sof good memory 
0408'CF 0 2 0 4} insv : re -vmb_end + k_pfn_map_addr+ : 
040C'CF 0 ae. BS. A 4 insv fi ae end + k_ -pfn rmae- “addr+12~—s; 
50 7F 8F 9A 1 4 movzbl #8770 ;Toad™ page count in r0 
57 6740 f 5 4 movaod tro sadjust PFN to Last page tested 
40 aB O50 Ci G 4 addl 0. rose rs Renee Sedjust good page coun 8000 
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68 0 co 1D 944 addl r0,(r8) adjust desc size 
3p 11 36 brb 40$ Sais in common 
947 ; 
ae8 ; write and then read a single memory page 
33 
326 ; loop to check for correct parity and verify contents 
954 ° 
7¢ 955 208: clr (r6) write memory to zero 
50 $3 dO 228 sevt #k_bus.timeout,r0 initialize tor error exit 
51 86) «67D «20327 )— 95 movq (r6)+,r1 sread memory back for parity detect 
8 A 958 ifirst read checks for page present 
A 959 :skip out if not present to nxm_memory 
83 A 960 iskip out on parity error 
52 12 A 961 bneq nxm_memory :if eql then correct read back 
O32C 6 if neq then odd case of PROM 
032C 96 
032C 964 ; 
O32C 965 ; check for page cross 
B3 C 966 ; 
32C =: 967 
56 OFF 8F B63 O032C 968 bitw #*xiff,r6 ‘page cross? 
EF 12 0331 969 bneq 208 ibr if no, keep going 
base 970 
033 971 ; 
bags are ; try to write a non-zero value and verify that it can be done 
933 974 ; This is to detect pages in ROM's that are all zeros 
0333 97g 
OFFFFFFC E6 3F BO 033 977 movw #63,<1828>-4(r6) swrite memory, page is present 
033A 978 swith don't cache bit 
OFFFFFFC E6 8 3F 033A 979 cmpw #63 ,<1828>-4(r6) zread back correct? 
38 48612 0341 980 bneq nxm_memory :if neq then some non RAM memory 
FC A6 =B4 «0343981 clrw -4(r6) sreset to zero 
0346 oB¢ 
0346 983 ; : 
0346 984 ; page is written - parity appears correct 
0346 O82 3 
0346 986 5 
oS. ee 8 46 tt 30$: insv #i.r7,#1,- zinsert bit in PFN map 
0400'CF 4A 9 3 vmb_end + k_pfn_map_addr 
OC AC D5 40 98 tstl yabSl_lo_ptn(ap) slow pfn inited? 
9% 18 28 990 bgeq 5 sbr if yes 
OC AC 7 4 5 991 mov | rreyabStlo_pin(ap) zinsert lowest PFN 
04 AB OD 8 992 35$: tstl 4(r8) smemory desc PFN set yet? 
Bice @ 5 99 bgeq aos ior if yes 
4 AB ee 5B 994 mov | r7,4(r8) zinsert this low PFN 
10 AC ee 5F 995 40S: mov | r7,vmc$l_hi_pfn(ap) sinsert highest 
68 06 6 43 incl (r count in current memory desc 
4C AB D6 ? $38 incl rpb$l_pfncet(ri1) count as good page 
6 999 ; 
68 1000 ; come here to move to next page 


| M 16 
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: come here when a page does not exist 


1 
1 
! next_page: 
FF69 57 O1 59 FI ! acbl r9,#1,r7,page_boundary ; continue until end of memory 
1 : 
! ; restore IPL and setup SCB for booting 
1010 ° 
101 setipl #ipl$_power sreset IPL 
FDF7 fr D4 101 clrl machine_check continue ;reset machine check continue addr 
23 OO000FOD BF DA 101 oy #Led_memory_ok,#pr$_txdb; set Lights 
* ae | 101 br begin_boot 
+ 
1 
1 
1 


OOOCCCooo 


nxm_memory : 


the primary bootstrap and SYSBOOT were all intended to fit within 

64 K bytes of memory which are tested and determined to be error-free. 
however, when the secondary bootstrap is used, the bootstrap procedures 
collectively take up more than the 64K bytes of tested memory. As a 
stopgap measure, if we find an error in the untested portion of memory. 


Oooo 
AAA ANAII AAI AAAI AIAN IANA AIAN 


NINN NN NS SSS NISSEN OA AOA AOOOOAO 


DHRFVFOOOOOO S Vn o@ MMM MmMMmMmMmMmmmmmmmen ao uMAI— Mmmm rnen COCDCOODCD 


OOOooooooow 
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NOAA OOD NAME WI OS OD NAME WIN 0 ODA EWN OOD NAU EW ODONOUN Finn 


Sete Ge Oe Ge Ge Se Ge 


OOOCCCCOCOCoOO 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
} 
13 we treat it as a fatal error. 
OOOO00001"EF D5 10 tstl vmb$secondary ; primary or secondary bootstrap? 
1 13 10 beql ; br if primary 
51 00018000 EB 3 tt 10 movab k_max boot_len(ri1),r1 ; ri <= address of end of sysboot 
a» He. F 38D 10 ashl #=9,rT rl 3; convert rl to pfn 
57 D1 0392 10 cmpl r7,r1 ; is memory error in range of 
0395 10 ; the bootstrap code? 
31.—Ci«9 3 , 193 blss fatal_memory_error ; br if so 
50 01 01 8 9 103 5$: cmpl #k_parity.error,r0 sexpected error? 
12 «12 033 193 bneq 208 iparity is ok 
9C 1041 ; 
6 , ine 3; reset the memory controllers to clear parity error 
9C 1044 ° 
S51 OF 00 6 9 i movl #1501 set loop count of controllers 
52 20001440 8F 00 9F 104 mov #msvil_csr_base,r2 sodgress base of controiller CSR's 
82 1 860 A6 1047 108: movw #msvll_csr_parity_enable,(r2)+;blast all possible CSR's 
FA 51 F4 AY 104 sobgeq r1,10$ icontinue until done : 
BA 11 rt : brb next_page 7no specs for PROM needed on parity 
problem 
AE 1 3 i 
| ' 52 ; bus timeout means non existant memory on a read, the page is not present 
rm : ; : But, page could be PROM memory 
AE 1056 * 
50 02 O01 AE 1057 208: cmp #k_bus.timeout,r0 sexpected error? 


memory initialization 
fata._memory_error 


: record holes in memory via descriptors 


@POWAwW 
— 
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sor if unexpected 


sthis desc in use? 
if no, don't move to next 


jor 
snk Tnendac *rpbte _memdscsiz>+rpb$1 memdsc(ri1),r0 


ta: Zendecets, rs 


rPOor nrwo 
C@oncD—oo 
-—-or,—-90 0o--9 
—fFOn Mau 


: memory initialization error 


fatal_memory_error: 


ANWAIAIAIAIAIAINI IANA AANA 
AAAOOAOOOOO7TWWWOW®W 
ee ae ed ed ed = od = od oS 3 = 


C009 CO COCO CO CDQ OS BS FAM NIMINI NINN 


we ofa jlwjoleleolololeolo! 


fatal_message 


soverrun area? 

br if yes 

taddress next memory desc 
:set count to zero 
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eo 


oO 
Ww 
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++ 
begin_boot - start the booting process 


functional description: 

This sequence is entered after the RPB and PFN bitmap are set up. 

roe process of selecting a boot device and type of doot operation starts 
ere. 


inputs: 


rii = address of the RPB 
ap = address of the secondary parameter block 


begin_boot: 


: If the “solicit for secondary bootstrap file’ flag is not set, 
; Just use a predefined file specification. 


bbs orpere mete Ee zsbr if not files-11 boot 
r g5| Gootr (r11),- : 

bbc #rpb$v_solict,- tIf “solicit” oe is not 
rp $l_Bootr5(r11),- sset, just use a default file 
10$ sspecification. 


: To solicit a file name, call a device-independent subroutine that 
; writes a prompt string to the console terminal, and then reads the 
: user typed file name. All device specifications are ignored. 


pushl rpb$l_bootri(r11) :Pass options switch settings 

pushab Cees etetrsts Set address of input buffer. 

pushl #39 :Set maximum character count. 

pushab nameprompt Set address of prompt string. 
calls #4,boo$readprompt Prompt and read ptr inp. 

orb 25$ :Go try to read the file. 


If the solicit boot flag a Pt $$ use a default file name string. 


t. 

Usually, this file name is CSYSEXEJSYSBOOT.EXE. However, if the 

diagnostic boot flag is set, the file name is ESYSMAINTIDIAGBOOT.EXE. 
108: movab vmsfile,r7 ;Assume SySe00T .6xe, 

bbc #rpb$v_diag,- :1f the diagnostic flag is not 

r $\_Bootr(r11),- set, SYSB8QOT is correct. 

movab diagfile,r7 Otherwise, use predefined 
iname of diagnostic boot. 
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F ; 
4 33 ; Copy the file name to the RPB. 
F 4] ° 
50 H 9A F (| 15$: movzbl (r7),r0 :Size of name string 
8 b6 F 4 incl cr iInclude the byte count character 
68 AB 67—~— = 5 40 44 movcS r0,(r7),rpb$t_file(r11) ;Move name into RPB 
046 iC EF 040 45 extzv  #r pév tops  -rpbes_topsys = 
50 30 AB 40 $6 rpb$l_BootrS(ri1).r ;Value of O-F means top Level 
40 4 saystem directory ‘‘SYSO"' = ‘’SYSF** 
09 50 »D1 040 48 cmpl r0,#9 30-97? 
03 15 040 49 bleq 208 :Branch if yes 
50 Z CO Q41 50 addl #<<“A/A/>=<*A/9/>-1>.70 ;Add bias to make A - F 
6D AB 50 = 80 } 52 208: addb r0,rpb$t_file+5(r11) iForm ‘'SYSn"' 
41 535 3 
} a 3 extract and stabilize device name info 
41 56 * 
57 FC3A CF 9E 041 57 25$: povel synanye device _list.r? ;address descriptor List 
7E 1C AB ®BO0AOADA0 8F CB 041 58 bic! #*x80A0KOA0, rpb$l_bootr0(r11),-(sp) ;make name uppercase 
4 59 rremove possible parity bit 
20 6 91 04 60 cmpb (3p) -#*a/ / sspecial non-name? 
1 14 " 63 bgtr 35 zor if gtr then specific device 
65 ; 
$ 64 ; non-specific device name 
2 o2 5 


movab boot_device_list,r7 ; skip checking synonym device names 
clrl (sp) ispecify non name 
bbs #switch_v_disk_boot,-  ;br if entire List is to be searched 


rpb$l_bootri(rT1) 468; 
movab no disk_boot_device_list,r7:;address alternate descriptor list 
brb 408 icontinue 


: specific device name 


35$: mov l (sp) ,boot_device_name ;save specified name 
subb #*a/6/,3(Sp) ;reduce unit number 


: start with first entry in boot device List and try each one until a 
; boot occurs or the List is empty 


40$: clrb rpb$b_slave(r11) ino slave or 
clrw rpb$w_unit(ri1) zsunit info 
movab vmb_end + k_next poet eder ri? set nominal load address 
b_devtypirl ) 


movb  bd_B_type(r7).rpb sload device type 
(sp) sspeg jal non-name? 
4 sbr if yes, no specific device 
cmpzv # #24,(sp),bd_l_name(r7}; ceapare three characters for equal 
b 4 s6r if 


; no match 
assume bd_b_modulo EQ bd_b_rank* 


ec ce ee ee el ee ce ee ee ee ee el ce el el ee cee el el cee el cel cee el cel ee cel el cee el el eel eel el el el el eel ee eel eel eel eel ee el eel eel el 
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02 AE 

51 02 AE 41 8F 
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oF 

fee 

23 O0000F OD 8F 
67 

91 

50 ©0848 8F 

6€ 

09 

50 0908 8F 

FCA8 CF 

40 8F 

0108 CB FCA! CF 
5E OE00'CF 


23 O0000FOF BF 
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memory initialization 
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mu —COO Sou BS> Nw 


MUNIN 
MMM 2 2 3 SS a BQO DO OOOO 0000 


-—O0O mmn—@o— 
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Fonrmun 
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JAN-19 

2f=pen: 1383 
tstw bee b_rank(r7) 

beql 

gaeu is P obd_l_name(r7) 
ne 

rp 50), bd_b_high_ unit(r7) 

bgtru 

an sp),r Bg nit (ri) 

movzbw 

brb ci?) pbsi_u 

movl bd_l 

addb3  rpBSw_unit(r1{) ,#*3/ 

Te aba reos “routine(r?) (Cr? 
los r 

bbc #i,r0, Sc 

tstb (sp) 

dneq 588 


; search for next controller of 
inch. 2(SP) 

subb3 #*a/A/,2(SP),r1 

cmpb ri max ctrirs 


bleq 
addl2  #bd_s_bd,r 
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UV1ROM.BUGSRC JVMBUVAXIP. nAR, 1 
‘Brit ena tte ot supported? 
f no, tinue 
s this the right device? 


punt § = range? 


to bd high unit (e7); ‘boot specific unit only 


name(r7) ,boot_device_name; build orrer device name 
187, bodt_device_name+ 


jus® device specific routine 

ior if success, transfer control 
spevere or fatal error? 

sor if fatal error 

ispecial non-name? 

ior if specific device 


this type 

sbump the controller number (char) 
iget controller number (value) 
shave we done all controllers? 


try next device 


7 : 
mtpr #led_memory ok ,#pr$_txdb; tell operator 


tstw bd_\-name(r?) 
bneq os ~ 


movzwl fest _devassign,r0 

tstb ( 

bneq 5 

movzwl #ss$_nosuchdev,r0 
clrl boot _device_name 
fatal message 


subb3 Sant ie -1,° 


tis there another? 
scontinue if not end of List 


; device data base search done without a match or valid boot device 


zslist end, specific name error 
ispecial non-name? 

sor if specific device 

zlist ~~ generic error 


ino specific name 


zsissue error in r0 


; secondary image in place, transfer control to it 


ntroller letter A->1, B=->2, etc. 


Co 
t_device _name+2, rpb$b_ ctriltr(r 11) 
movab vmb_énd + k_next _boot _addr,sp ;load fresh sp 


: restore SCBB values 


ator #led_transfer wee -#pr$_txdb; tell user 
sc 


movab = vmb 3 + ko 
cr 
movzol 9255.6 


ddr ++; jiddress scb plus two pages 


;setloop count DIV 


2 
moval secondary. scb_int+1, -(r7) ;address general error routine 


VMB_MICROVAX_1 
vou70-06 


FB 59 


09 
30 AB 


23 O0000F0S 8F 
65 


co 
™N 


eal ah ah ab sb sb sh ah sl et et ee ee et et ee Pe 
OOOCOCOOCOOCOC MN NTN NN NH 
CTOUW A 2 2 89) SY em 


Soooooooooooooooooo 


-O 
a Pd 


memory ee oe 
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recompute size of bitmap 


bS$l_hi_pfnia 
»rpb$q_ sinmept 


sl ‘Bootr$irt1), - 
ae 
(r5) 
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scontinue in loop 


5 iget Last valid PFN 
set size of map in bytes 
120. pfnmap(ri1), vmb$Q.. pfnmap(ap);copy pfnmap desc 


: halt system prior to entering secondary boot if requested 


:If boot flags don't call for 
halt gust ransfer to new 
peetettes inoge. 

sOtherwise, HALT 

sExecute JUMP. 
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-sbttl specific device boot subroutines 
; prom_boot 


boot subroutines 


functional description: 


This routine tries to poet from a PROM system image that ae be in 
; memory. Each bad page 16KB boundary is tested to see if it is readable. 


inputs: 

r7? = address of the internal boot device description 

ri0 = address of the secondary boot's memory 

ri1 = RPB address 

ap = address of the secondary parameter block 
outputs: 

r0 = ss$_norom - no rom present, severe error 

or 


r0 = 1 if success 
r5 = transfer address 


r7,r11 are preserved 


Bete Ge Ge Ge Ge Ge Se Se Ge Ge Ge Se Se Se Sse Ge Ge Se Ge Se Se Ge Se Sete 
+ 


prom_boot: 


; cycle up through memory 


movab g,o0 nach ine _check_cont tous: japtant for read timeout 
l r initi 


clr ; : a page address 
10$: bbs r5,umb_enc + k_pfn_mar_addr,20$ ;br if that boundary is not bad 
ashl #9 r3,r :compute address 
cmpw (ri), #*x18 try to read that memory 
A smay machine check 
bneq 20$ sor if not key 
bsbw verify boot block verify the boot block 
blbc r0.20 sbr if not correct 


; PROM found, boot from it 


addl\3 sr 1,16¢r1),r5 compute starting address 


reset machine state 


sno driver 


clrq rpb$l_iovec(r11) 
rsb :done 


<=s 
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acbl #k_max smemory spages~1. -#32,73,198; continue until done 
movzwl #ss$_norom! set severe error code 

ete machine a continue ; 

rs 


3% 


ices ei ETE pe SRN Rica te ARM Ry Tye an he Meee So Ey A fe el al Tc siecle reali aoe an eer ae 
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49 ; ++ 
22 : ; network_boot 
4 functional description: 


This routine tries to boot from a network device 
inputs: 
r7?_= address of the internal boot device description 
ri0 = address of the secondary boot's memory 
rll = RPB address 
ap = address of the secondary parameter block 
outputs: 


rg = 1 if success 
r§ = transfer address 


or 


DPARX_EQ_LDQLQD®DPE GAAP Be BB PPE EE 
MEW OO BNOUES WAN" OOONOU SE wn 


Sete Ge Ge Ge Ge Gs Gee Ge Ge Ge Se Se Se Se SeSe Se Se Se Sse sete Gse tsetse tes 


1 
1 
1 
1 
1 
49 1 
49 1 
49 1 
549 1 
549 1 
549 1 
re 1 
49 1 
549 1 
549 1 
545 1 
549 1 
549 1 
549 1 
549 1 
0549 i 
0549 1 r0 = ss$_nocuchdev - CSR does not exist - severe 
beee 1 = ss$_bufferovf - secondary bootstrap does not fit - fatal 
549 1 = s3a_devinact - device could not be inited - fatal 
0549 1 s:$_ctrlerr - 1/0 error during operation - fatal 
0343 } = ss$_devoffline - device is offline - severe 
549 1 r7,r11 are preserved 
549 1366 ;-- 
549 1367 
549 1 rt) ne’ ork_boot: 
0549 1 § ; 
0277 30 0549 1370 bsbw validate_csr stest CSR of device 
054C 1371 return implies success 
054C 137? ; 
054C 1373 ; boot via the Ethernet 
beer 1374 ; 
54C 1575 
52 7E ODE O54C 4 6 moval a HE | zsaddress target for transfer address 
68 AB OF O54F 137 pushab rpb3t_file(r11) address to store node name 
28 OF beee 1378 pushab Coast peotestri td saddress to store node address 
6 oF 822 1379 pushab (r2) saddress to store transfer address 
0400°CF 9F 0557 1380 pushab vad .ond+h_pin_nep addr ;address of bit map 
eRe ce OF BaeP 1381 pushab vmb_end +"k_next_Boot_addr ; utter spgce 
53 EQO'CF 9E F 4 ¢ movab vmb_end + k_next_boot_addr+<16*512>,r5 ; image load address 
63 OF 0564 138 pushab (r image load address 
0000' CF 6 FB 0566 1384 call #6 ,,boo$downl ine_load itry QNA boo 
> $3 3 C1 0568 1385 addl (sp)+,r5.r5 zscompute transfer address 
9 9 $f 1 § blbc r zor if not success 
4 AB ¢ 05 ¢ 1 clrq rpb$l_iovec(r11) ino driver 
05 0575 1388 10$: rsb :done 


a3 
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wy 
~“ 
oo 


p++ 
; disk_boot 

; functional description: 

; This routine tries to boot from a disk device 
inputs: 


WAU AIAN NA 


r7_= address of the internal boot device description 
r10 = eddress of the secondary boot's memory 

rll = RPB address 

ap = address of the secondary parameter block 


1 
1 
6 1 
6 1 
: . % 
6 1 
576 1 3 
576 (1 3 
576 1 $ 
576 1 3 
576 1400 ; 
2 6 1401 ; 
6 1402 ; 
576 1403 ; 
8 6 1404 ; outputs: 
576 1405 ; 
0576 1406 ; ro = 1 if success 
0576 1407 ; r5 = transfer address 
0576 1408 ; 
0576 1409 ; or 
0570 1410; 
0576 1411; r0 = ss$_nosuchdev - CSR does not exist - severe 
0576 1718 3 = ss$_nosuchfile - file is not on the volume - feget 
0576 1413 ; = ss$_filnotcntg - boot file is not contiguous - fat 
0576 1414 ; = ss$_bufferovf - secondary bootstrap does not Hee - ‘ tatal 
0576 1415 ; = ss$_devinact - device could not be inited - fatal 
0576 1918 3 = ss$_ctrlerr - 1/0 error during operation - fatel 
0576 1417 ; = ss$_devoffline - device is offline = severe 
0576 1418 ; 
0576 1419; r7,r11 are preserved 
0576 1420 ;-- 
0576 1421 
0576 14 § disk_boot: 
0576 14 
024A 30 8258 1? : bsbw validate_csr scheck CSR and return if success 
B378 14 § 3 
579 1427 ; move and initialize the disk driver 
0579 14 3 3 
0579 14 
52 34 AB 00 0579 1430 movl rppsl., iovec(r11),r2 saddress boot driver 
59 8 00 057b 1431 movl ; load addr of rpb 
18 B24 16 38 1 § sb abqo$l _ move(r2)Cr2] icall move code 
4 1434 ; 
t 1? 5 ; try low to high units, removable first, non-removable second 
584 14 ; ; Build a mask with two sets of 8 bits. The first 8 bits are the available 
584 14 8 : “soft’’ disk units ong the second 8 are the available ‘hard’’. The mask 
: ? 1373 3 starts with rpb$w_unit to bd_b_high_unit set in each set. 
584 1441 
58 4 0584 1442 clrl r8 units to search 
56 7 ry, C 6 14435 movzwl rpb$w ynitirlt) 06 ‘build the basic mask 
51 4A A A 1464 movzbl bd_b_fi gn. wunit(r7),/e1 get high 
58 51 8 C3 (0 5 1445 subl ré.riyr snumber of units 
D6 «(05 1446 ncl ; plus 1 


S33 


K 1 
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58 01 1 i 1eeg _ rg -M1 018 sform mask 
58 658 oh 144 ashl ; ayer : 
58 08 98 $ 15 E1450 ee fo es de oli aa 
1 91 Q5A5 1451 cmpb r6,r\ shigh = low = one unit? 
9 ie an 1426 bneq 19$ br if yes, enter search 
AB 145 clrb r tno soft disk search 
aan 1088 
SAA 1456 : 
if 8 select a unit from the mask 
56 58 10 00 EA AA 1459 108: ffs #0,416,°3,r6 get the unit b 
64 AB 56 08 AB OSAF 1460 biewS  oonb. 0b, Ppetuunittril) set unit maber, le 
reps CF 6s AB O80 OBS 0584 183 addbS  $°a/6/ .Fpbtu Unitiril) boot device nemeeS; neo unit. ta Rene 
05B8B 1463 ; 
5BB 1464 ; - init th 
0586 1485 now, init that unit on the controller 
52 34 AB DO O5BB 1467 movl rpb$l_iovec(r11),r2 ;ad 
51 1€ A2 it OSBF 1468 mov | b o$l"unit_init(r2),r1 a pe wae Rag routine 
20 05¢3 198) beql os ;None 
g8cs 127) 
O5¢9 1478 ; init the controller and a specific unit 
Bare ere ; it is OK for the unit to be offline but not for the controller to fail 
05¢5 1476 © 
6241 6C FA Q5C5 1499 call (ap), (r2)Cri) : 
09 50 £8 05¢9 1478 bibs 0208 fd vag yt Fmt 
Sete 1480 
pace 1483 3 If the unit is not online, it is a fatal error if the controller failed. 
O5CC 1483 ° 
0084 8F 50 B61 OSCC abe cmpw r0,#ss$_devoffline soff ine? 
36 612 O5D1 1485 bneq o$ zsbr if no, more fatal error 
21 11 #0503 14 $ brb 5$ scontinue with next unit 
Oeps Je 
B2p2 1489 3 controller is up, unit is online, make removable, non-removable tests 
088 iH : success from the online is: 
05D5 1493 : #1 unit is online, can't detect h 
505 1494 tothaiuseee 
505 1495; #25 unit is oniine, soft disk 
as 1a | 
0C 56 603)=«©EO 60505) «=—1498 208: bb #3,r6, ; 
303 1635 s 3,r6,308 br if hard disk mask, try unit 
209 a : looking for a soft disk - can the controller can tell? 
509 1 , 
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bbc #3,°0,25$ 


bbs ag 


r0,308 
brb 40$ 


since the controller can't tell, shut 


but do this unit anyway 


clrb ré 
try a boot of this unit 


#*m<r6,r7,r8.r9> 

sbb boot_disk unit 
po r as a 
bbc #1:70,508 

80 
bbec ri,r8,40$ 
bbcc + bettas 
r 

bneq 10$ 


bisb #ia1,r0 


50$: rsb 


2Fapet=}382 18: 


2:89 YAH VRS Baers YOK=00 se aanlth? ci, vi 


ibr if not detectable soft or hard 


Oo 


: looking for a soft disk and the controller can tell 


br if soft disk flag set, try unit 
scontinue in common 


off tests in soft mask 


imo more soft disk tests 


:Save context values 
itry this unit 

srestore context values 

zbr if success 

sor if fatal error 

scontinue if just severe error 
sclear bit in both masks 

shard mask or greater 

sand soft or hard 

smore units? 

jor if yes 

sexit with error status of last unit 
smake error semi-success 


nawe with real booted device and transfer control 
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bbs br if direct boot block boot 


03 £0 B60A #rpb$v_bblock,- 
C rpb$l Bootrs(r11) ,80$ : 


63 30 AB 


: init the file read cache if this is a FILES-11 boot 


FB12 CF FB4D CF 7D 06 mova file_cache_desc,fil$gq_cache ;reload the descriptor 
1 sbr if done 


50 
FB39 CF 


60A 1544 -sbttl boot a specific disk unit routine | 
60A 1545 ; ++ 
60A 1 6 3 boot_disk_unit 
60A 1547 ; 
? . } rh ; functional description: 
60A 1550 ; This routine tries a boot of a particular disk unit. The device and 
SOA 1551 ; driver are present and verified. This routine is used for each unit on 
Osa } ; ; which a boot is to be tried. RPBSB_UNIT contains the unit information. 
60A 138% : inputs: 
be A 132? ; 
60A 15 § 3 r9 = rpb address 
O60A 1557 ; riQ = address of the secondary boot's memory 
Q60A 1558 ; rll = RPB address 
oRA 1322 5 ap = address of the secondary parameter block 
060A 1364 3 outputs: 
060A 1562 ; 
Q60A 1562 ; r0 = ss$_success 
Q60A 1564 ; r5 = transfer address 
QO60A 1565 ; 
060A 1566 ; or 
060A 1567 ; 
QO60A 1568 ; r0 = ss$_nosuchdev - CSP does not exits 
Q60A 1569 ; = ss$_nosuchfile - file is not on the volume 
060A 1570; = ss$_filnotcntg - boot file is not contiguous 
060A 1571 ; = ss$_bufferovf = secondary bootstrap does not fit 
060A 1376 ; = ss$_devinact = device could not be inited 
Q60A 1573 ; = ss$_ctrlerr - '/0 error during operation 
Q60A 1574 ; = ss$_devoffline ~ device is offline 
060A 1575 ; 
060A 15 § 3 r10 and cil are preserved. 
Q60A 1577 ;-- 
060A 1578 : 
Q60A 1579 boot_disk_unit: 
060A 1580 
060A 1581; 
sty 1 ; ; do forced boot block boot 
Q60A 1584 ; If RPBSV_BBLOCK is set then read LBN 0 and transfer control to the 
Q60A 1585 ; block. 
060A 1586 ; 
6 1 7 
18 
15 
1590 
1382 
1398 
1594 
1595 
11 3 16 15 $ bneq 10$ 3 
hy te 18 15 bsbw boo$cache_alloc sallocate the cache 
8000 8F C 15 3 movzwl #ss$_memerr.r ;assume no memory 
FBO4 CF 4 15 
48 1 1600 


movg fil$5q_cache, file_cache_desc ;Save the descriptor 
5 sbr it cache not allocated 
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629 1601 
629 1602 ; 
ae 9 1608 3; Call a dev icer independent routine, FILSOPENFILE to locate the named 
$e | Jone 3: file on the disk. 
0629 16 $ ; the cache open is where the drive is mounted so it can fail if tnere is 
0629 1607 ; no physical volume 
0629 1608 ; 
F9D4* 30 aes 1840 10$ bsb . $cach 30 h — h 
: sbw oo$cache_open ent e. cache 
23°50 £9 069¢ 1611 blbe Stain tbr if ¢ 
69 AB OOF be F 1616 15$: pushab al § file+1(rtt) taAddress c 4 file name string. 
7E 68 AB 9A 0632 161 movzbl rpb$t_file(r11),-(sp) ;Character count of file name. 
7E D& 0636 1614 clrl -(sp)~ tAllocate scratch for channel 
0638 1615 tand get adr of scratch storage 
3C AB. OOF bes 1616 pushal rpb$i_fillbn(r11) ;RPB fields that receive file 
0638 1617 istatistics during OPEN. 
6A DF 0638 1618 pushal (R10) File header buffer at end of 
063D 1619 ymemory 
0200 CA DF 063d 1620 pushal 512(R10) tIndex. file header buffer at 
0641 162i tend of memor fi 
10 AE ODF 0641 16 ¢ pushal 18638 Address in file name desc. 
0 AE ODF 0644 16 pushal 4930 Address of phony channel. 
OOCO'CF 05 FB 0647 1624 calls @# # Sopent ite sCall FILREAD to locate file. 
SE OC CO 064C 1625 addi2 #1 :Clean up scratch space 
5B 50 E€8 Uo4F 1626 blbs r0.boot_file :Branch on success. 
0652 lost 
0652 1628 ; 
0652 1629 ; the volume is not a files-11 volume, try boot block booting, if the error 
0652 1oe9 3; related to a file structure problem 
ae 
O8CO 8F 50 B81 0652 1835 55$: cmpw r0,#ss$_filestruct stest for file structure error code 
19 13 0657 1634 beqi 808 :br if that's what it is 
0810 8F 50 61 0659 1635 cmpw r0 ,#ss$_badfilehdr stest for file structure error code 
12 13 065E 1636 beql 808 zbr if that's what it is 
0828 8F 50 Bi 0660 1637 cmpw r0,#ss$_badirectory jtest for tile structure error code 
08 13 0665 1638 beql 808 tbr if that's what it is 
0808 8F 50 B61 0667 1639 cmpw r0,#ss$_badchksum itest for file structure error code 
04 135 066C 1640 beql 0 zbr if that's not what it is 
50 02 CB O66E 1641 bisl #iai,r0 zmake non-fatal 
0S 0671 1066 75$: rsb zand go back to caller 
0672 164 
672 1644 ; 
672 1645 ; read LBN 0 as boot block 
67 1948 : 
672 164 
58 D4 067 1968 80$: clrl ré block te reed 
5 4 DO 0674 164 movi #1,°9 isize to 
56 A 4 677 1650 mov | r16,r6 Start of "Tree monary 
0080 67A 1651 bsbw reagt ite tread the block to R10 
50 €9 067D 1936 blbc r0,75$ tbr if error 
tt 165 
680 1654 ; ; 
680 1655 ; validate the boot biock 
680 1696 : ‘ 
680 165 
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50  O08C2 BF HS 6 9 1638 movzwl #ss$_filestruct!2,r0 set error code, semi-success 
52 8 AA A 06 1 movzbl 2(r10),r get offset to secondary id field 
01 AA 91 Q689 1660 cmpb (r10),# next field a BR instruction 

FS 2 0680 1661 bneq 5$ zbr if no 
51 6A4 3E O68F 1996 movaw (r10)Cr2),r1 address next field 
6 ; 166 . jthis must be in the same page! 
1FA 30 0693 1664 bsbw veri zadeet_pleck scheck boot block 
D8 50 5? 696 1665 blbc r0,7 zsbr if not a valid block 
58 04 AA 10 9C 0699 1666 rotl © #16,4(r10),r8 :get secondary image LBN 
59 O08 Al 00 443 166 mov l 8(ri),r9 get image size 
5A OC Al CO Q6A2 1668 addl 12(r15$,710 scompute load address 
55 10 Al SA C1 Q6A6 1962 addl\3-r10,16(r1),r5 scompute transfer address 
42. 11 Q6AB 1670 brb readin_boot boot block is valid, read file 
Q6AD 167 
O6AD 1672 ; 
Q6AD 16735 ; File was located successfully. Make sure that the file is contiguous. 
Q6AD 1674 ; The file statistics block is the following: 
6AD 1675 ; 
6AD 1928 3 towne meen ecannee en eewecococece + 
Q6AD 1677 ; H starting LBN : (0 if file not contiguous) 
O6AD 1678 e (eRe Beene mem eme mee neem ce + 
QO6AD 1679 ; ' size in blocks : 
O6AD 1680 i 2) 
O6AD 193) 3 
O6AD 16 ¢ 
Q6AD 1683 boot_file: :Test for contiguity. 
58 3C AB 7D Q6AD 1684 movq A eaten ie :Get file statistics. 
58 D5 0681 1685 tstl r :Contiguous file? 
06 12 C6B3 1686 bneq 60$ Yes, continue. 
50 O2AC 8F 3C 0685 1687 movzwl #ss$_filnotcntg,r0 ssearch fatal error 
05 O6BA 1688 rs 
0688 1689 
068B 1690 ; 
068B 1691 ; If the software boot control flags indicate that that transfer 
0688 1696 ; address of the secondary bootstrap is stored in the image file's 
0688 1695 ; header block, read that header block. Otherwise, assume that the 
06BB 1694 ; transfer address is simply the Ist byte in the image file. 
68B 1695 ; 
688 1209 
55 SA DO 06BB 1697 60$: movl r10,r5 zsAssume no special transfer address. 
06 £1 OQ6BE 1698 bbc erosive header ,- :If no header requested, 
30 AB 06CO 1699 rpb$l_Bootr5(r11),- sthen just branch past header 
gC pote 1700 readin_boot sreading code. 
26 A OD 6C 178 mov l ri0,r6 Start of free omary 
5 4 D 6C6 17 § mov | ir eHeader is always only 1 block. 
2 10 06C9 170 bsbb readfile » Read header block. 
5: 50 9 06CB 1704 blbc r0,no_fit sor if error 
58 C AB D O6CE 1705 movg rposh til loniett) £8 ;R8 = Ist LBN, RY = hlock count 
52 59 7D Q6D2 17 $ mova r9,re zR2 = block count, R3 = hdr adr 
F928" 30 re 4 M4 bsbw boo$image_att :Get image attributes 
608 1709 ; 
608 1710 ; R1 = image header block count 
4 Har ; R2 = size of file in blocks excluding symbol table and patch text 
608 1713 ° 
00AO0 (CB «651 4 «=p0 06D8 1714 mov l ri,rpb$b_hdrpgcnt(ri1) ;Store image header block count 
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59 eee 60D 1715 subl3) rl,r2,r9 Blocks in image after header block(s) 
3 3 (0 6€1 at addi ri.r ;LBN of first Block beyond headr block 
51 02 AA C Q6E4 171 movzwl ihd$Swactivoff(rl0),r1 ;Get offset to image 
eee 1713 zactivation data in header. 
1 SA CO QO6E8 171 addl r10,r1 Form transfer vector address. 
55 614A SE 0668 1720 movab (r 15010), r5 :Get transfer address. 
18 
6EF 17 : ; Now read in the file. If the file is too large for the remaining 
6EF 1724 ; memory space, see if the required additional pages are usable. 
re Vf 5 ; If they are, use them. If not issue a fatal diagnostic and HALT. 
Ose if ; 3 Registers set up now are the following: 
Seer 1729 ; R5 = transfer address 
O6EF 1730 ; R8 - starting LBN of file (after header) 
QO6EF 1731; R9 - size cf file in blocks 
beer 17 ¢ 3 R10 - address of Ist byte in free memory 
6EF 1733 ; R11 - address of the R 
O6EF 1734; AP = secondary boot argument List 
O6EF 1735 ; 
O6EF 17 § 
Q6EF 1737 readin_boot: 
14 AC 44 AB 7D bere 1539 bs f (r11) b$ f (ap) t bit d 
mov r pfnmap(r11),vmb$q_pfnmap(ap);se map desc 
56 SA DO O6F4 1740 oe 740.8 chest ter ter reed : 
O6F7 1741 
06F7 006 3 
QO6F7? 1743 ; Will the desired number of blocks fit in the space remaining in the 
O6F7? 1744 ; pre-tested 64kb of memory? If not, check that the additional pages 
Q6F7 1745 ; required are usable. If they are, then read it all, otherwise quit. 
O6F7 1746 ; 
O6F7 1747 
O1BE 30 O6F7 1748. bsbw verify. image_memory iverify pages for image 
2—F 50 £9 O6FA 1749 blbc r0,no_Fit zor if error 
O6FD 1730 
O6FD 1751; 
pore 1726 ; Now read the secondary boot code into memory 
O6FD 1754 ; Calls the device-independent bootstrap Q10 routine to read 
O6FD 1755 ; a file. Divides the file into pieces as large as possible, so 
pete 1736 3 that the read is a small number (Like 1) of DMA transfers. 
6FD 173 : Registers: 
berD 17a9 5 eo 
O6FD 1760 ; R5 = secondary boot transfer address 
O6FD 1761 ; R - buffer address 
BoFD 1706 3 R = logical block number (LBN) 
FD 1763 ; RG = number of blocks in file 
BOFD 1764 ; 
6FD 1,55 
O6FD 1268 readfile: zRead file into menery. 
57 7F oF Ga sf 176 movzbl #k_max_io_pages,r7 3Ass maximum transfer size. 
59 7 «Ol 1 1708 capl r7,r9 sMin atze with file size. 
03 15 0706 176 bleq 108 :Branch if file larger than 
706 1770 maximum transfer size. 
57 59 DC 0706 1771 mov l r9,r7 Set to remaining file size. 


“Ss 


dD 2 
VMB_MICROVAX_I “JAN-1985 17:32: AX/VMS Macro y04-00 Pa 
yoe70-06 boot a specific disk unit routine 2Fape t= 138 1:32:83 LOVIRON.BUSSRC VMBUVAXIP.MAR: 49 (11) 


7 3 1778 10$: ;Push arguments for Q10. A, 
5 DD 07 177 pushl rit ?ush phony channel number. A, 
bo 7 1774 pushl # iPhysical read mode. AL 
7E C 0700 1775 movzwl #io$_readiblk,-(sp) gRead logical block function. A, 
§ bo ? 1276 pushl rv ;Starting LBN. A, 
7E «57 ¢ O712 177 rotl #9,°7,-(sp) iTransfer size in bytes. A. 
6 O 71 1778 pushl 6 Buffer address A. 
56 04 ag ¢ 718 177 addl 4(sp),r6 sUpdate buffer address. Ls 
58 C 71C +1780 addl r7,¢ ;Update LBN. A, 
0000' CF 43 71F 1781 calls @ -hoosato iCall a bootstrap Q10 routine. A, 
05 E 724 #17 ¢ blbc r0,50$ :Continue on success. a 
59 5 fe 727 «(17 subl r?7,¢ sDecrement blocks remaining. A. 
D1 4 O72A 1784 bgtr readfile Continue if not done. A, 
72C «61785 A, 
7z¢ «(17 § ; A 
(eC 1787; R - status 
i? C 1788; R = secondary boot transfer address 
72C 1789 ; RB - buffer address peceres past last byte read 
72C 1790 ; & - LBN updated to block after last block read 
72C 1791 ; Rg = blocks in file (reduced to number not read) 
72C 1736 3 
72C 179 
72C 17946 308: 
05 O72C 1795 no_fit: rsb ;Return to caller when done. 
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4 . 1737 “ -sbttl scb interruot routines 

, p 1738 : ignore scb_int 

4 : ! ? > functional description: 

f 4 ! § : This sequence runs via an SCB vectored interrupt. 

4 ! 5 : inputs: 

4 ; ! ; none 

4 4 : § : outputs: 

720 1 ; none 

72D 1 3 

72D (1 

72D 1 

7 1 

730 

7 1 


ignore_scb_int: 
ret 


02 
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731 1819 ;4¢ 
4 ! ! 6 ; machine_check_detect 
, : > functional description: 
731 1804 : This sequence runs when it is enabled in the machine gheck vec vector. 
4 ! } 5 ; The action is to alter the return address to a value in rl and continue. 
r31 5 inputs: | 
731 «1 $ : machine check stack 
g ! ! 9 3 machine_check_continue = address of the continuation code or 0 
4 ! } ¢ : outputs: 
731 «1834: rO = machine check code 
ay ng 
H ! $ align long 
g 2 : 33 machine_check_detect: 
26 QOOOOOFF BF DA $ 4 1841 ator #*xfft ,@or$_mcesr iclear machine check error 
FA2D CF 0 7 1 ts tstl chine. chéck_continue ;change return PC? 
dD 6«(61 73F 6184 beql 10$ iif eql then no, unexpected 
50 . 3 0 158 ! rt: Sexi Asp) »,r0 j load coteen 
a sp)+,s tpop s 
6— FA20 CF $' Bree ' r aoys OT ae continue, (3p) actually change return PC 
re 3 
O74E 1848 108: fatal_message scbint 
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7 | p++ 
4 é ! ; fatal_error 
, 6 ; ; functional description: 
756 1855 : This routine is entered when a fatal error is to be displayed. 
756 «(1 § ; The input code is a standard ss$_ value and it is matched to a text 
756 «(1 ; string by scanning a table of longword entries. The first work of the 
756 «(1 28 ; longword is the low word of the ss$ code and the next word is the 
4 ! 23 ; displacement to the message text. 
r ! 63 3 inputs: 
07 ¢ 63 ; r0 = internal error code 
4 ? ! o : outputs: 
756 «(1 $9 ; The boot is abandoned, the registers are restored to 
736 : 63 ; reflect the initial contents and the system is halted. 
756 1870 ° 
P38 ! 4 fatal_error: 
5B FAOE CF 00 738 1 8 mov l boo$gl_rpbbase,r11 irll <= addr of rpb 
FAOD CF D4 0758 1874 clrl machine_check continue ;disable error continue 
51 F973 CF 9E O75F 1875 movab sm sogee_pase.Ft address mene | desc 
50 03 CA 0764 187 bicl r sremove severity bits 
50 81 681 0767 1877108: cmow (r{)+,r0 icompare code 
06 13 O76A 1878 beaql 15$ sor if found 
81 B65 O76C 1879 tstw (r1)+ sadvance and test for zero offset? 
ia 6 1880 bneq 10$ scontinue in not found 
—. os a 1881 brb 208 iif List end then no message 
50 61 32 0772 1 § 15$: cvtwl (ri),r0 ifetch displacement from ceil 
20 AB bp 775 «1 pushl rod$(_bootr1(r11) ;Pass options switch settings 
7E C 0778 1884 clraq - $e ino read data 
6140 9F O77A 1885 pushab (ri)Cr0) saddress of message text 
OryD 188 
R : 3 : Output the header part followed by the input code's message 
77D 1890 ° 
20 AB D 077D 1891 pushl rpb$l_bootri(r11) iPass options switch settings 
7E C 07 1 38 clr -(sp) ssetup header 
FOSE CF OF 07 1 4 pushab message_header : 
0000 ' CF 4 FB Q7 1894 calls #4,boo$readprompt output header 
OOOO'CF O04 FB OQ? 1895 calls #4 ppesreadoronpt output nessage 
20 AB «OD «(0790 +1 3% pusht rpb$l_bootr)(r11) :Pass options switch settings 
7E C 6793 i89 clrq (sp) soutput device name 
907 CF OF 0795 1 38 pushab boot_device_name 
0000° CF 4 FB 0799 189 calls #4,boo$readprompt 3 
Toe 1901 
79E 1 : reload the input registers 
rae 1908 | catty 
5E 68 0 O79E 1905 208: mov l rpb$l_base(r11),s zioad s 
se 0200 CE SE OAT 1908 a eee 4 
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validate_csr = test for present CSR 


; functional description: 


This reysine tests for a device CSR and returns to the caller's caller 
f the CSR is not present. The CSR address is calculated from the base 

CSR address and the controller number. 

inputs: 


r7_ = boot device descriptor address 
rll = rpb address 


outputs: 


return to caller implies that device is presen 
return to caller's caller with r0 = ss$_devassign+ 


The RPBSL_PHYCSR value is filled in. 
r0,r1 are destroyed 


validate_csr: 


movl bd_a_csr(r7),ri ; assume fixed CSR address 


subb3 #*3/K/,boot_device_name+2,r get boot controller number 
beql 0$ ; br if controller zero 
bsbb loat_csr ; else, find floating CSR address 
blbc r0,70 : br if error 

0S: movab b*60$ ,machine_check_cont inue 3 change machine check addr 
clrl r ; set present flag 
tstw (rl) 3; test if = is present 

$: clrl machine_check_continue ; zap machine check address 

tstl r ; CSR present? 
beql 80$ ; br in yes, continue 

0S: movzwl #ss$_devassign!2,r0 ; set error but semi-success 
popl ri ; pop return to caller 


; success, save CSR address (ri). 
hoy ri,rpb$l_csrphy(r11) ; save CSR address 
rs 
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+ 
float_csr 


functional description: 


This routine will take the rank of a g'ven device and 
float the CSR's to find the corresonding controller. 


The modulo for the device is non-zero if controllers are 
consecutive from the first in 1/0 space. Else, the rank is 
non-zero and the device CSR address ‘floats’ with other 
devices in the machine. 


inputs: 
r0 = controller number in low byte (non-zero) 
ri - CSR address for first controller of device 
r7 = boot device descriptor address 

outputs: 
r0 - true or false 
ri - CSR address, if success 


ALL other registers are preserved 


loat_csr: 


pushr #*m<r2,r3,r4,r5> ; save registers 

movzbi r0,r ; save controller number 

movzbl bd _b_modulo(r7),r3 3 get modulo value for device 
bneq ; br if present, find controller 
movzbl ab rank(r7),r5 3; get rank of device 

decl r ; Rinus one 

bleq 808 :; br if bad, return error 

cmpl r4,#max_ctrirs 3; is controler number reasonalbe? 
dgtru 1 br no, return error 


movab b*1208,machine_check_continue ; change 
movab modulo 


blr 
movl Sphy.onio.space*8,r3 ; get start CSR address 


> at this point: 


3 ri - physical address of CSR for first floating device 
3 r - address of device modulo table 

3 r - scratch 

3 r4 = controller number 

3 rs = rank (non-zero value) 

tstw (rl) : is CSR address present? 


; is rank now zero 
; Br if yes, continue 
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machine check addr 
; get device CSR modulo table 
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movzbl (r2),r3 i get device's modulo value 

eed 100$ : error, if end of table 

addi3. # F300 i; skip to next CSR set 

eres r0,r 5 eee 

bicl r3,r) 3; and round down 

orb 206 ; loop if we have not reached our device 
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> rank is now zero, rl is where the first controller for 
; our device should be. 


incl r3 ; round up modulo value 

moveb beB0$ machine_check_cont inue 3 new exception handler 

brb 3 get into loop to find right controller 
addl r3,ri ; Skip to next controller 

tstw (rf) ; is CSR address present? 

sobgtr r4,30$ ; loop if more 

brb 60$ 


modulo is non-zero calculate where our controller must be. 


reset machine check handler 
return status 
restore registers 


e 
clrt machine_check_cont inue 


8 
< 
~ 
.- 4 
= 
a 


r 
popr @*m<r2,r3.r4,r5> 


3 at this point: 

3 ri - physical address of CSR for first fixed device 
: r3 = moduio value 

3 r4 = controller number 

: r7? = boot device descriptor address 

cmpb r4,bd_b_max_ceri(r7) ; is controller # in range? 
bleq 5 3; br if yes, continue 

subl bd b_max_ctri(r7),r4 ; remove fixed one's from List 
brb 108 i now find floating device 
mull r3,r4 ; compute controller offset 
addl r4,ri 3; and adjust CSR address 


: no modulo value in tabie, we went past end! 


clr £8 ; return failure 
brb 80$ 


: no CSR address present, move to next device in modulo table 


error, if end of table 
skip to next CSR set 


ecl r ; count down rank 
ncl cr ; skip to next modulo value 
movzbl ( ; get device's modulo value 


beat 1068." 
e 
addl3 #3. r0 
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7F 5 34+ 
7F § 3 unfielded_scb_int 
i 3 secondary_scb_int 
ze : : functional description: 
7F 91 ; This routine is executed if an unwanted SC® interrupt occurs during 
4 4 ; booting. An error message is displayed and the system is halted. 
7F 2094 : inputs: 
i 8 b int t stack 
Ag 03 scb interrupt stac 
7F 98 ; outputs: 
7F 2099 ; 
7F 2100 ; none 
7F 2101 ;-- 
7F 21 ¢ 

B7F 21 ealign long 

tt 104 

0 2105 unfielded_scb_int: 

0880 21 “ 

88 é : i fatal_message scbint 

bes 109 secondary_scb_int: 

0888 2110 

0888 2113 


fatal_message 2ndint 


r0 = true or false 
rl = original address 


r2 is destroyed 
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9 113 344 
4 Wi : verify_boot_block 
4 118 : functional description: 
9 V8 : This routine ver tives a small memory section as a boot block descriptor. 
$9 135 : It is used to verify a disk boot block or a ROM 46 block. 
90 2121: 
0 90 1 ¢ 3 gear mwrer np orcs n} eooemnnw tower can $ 
0890 21 3 BB+0: 1 1 | ni any value } 
8 4 } : : fiat Nich wae 
4 : + + : 
tt 1 § : BB+(2*n)+0: H Chk H k i "1B (Hex)! 
0890 1 0 3 Fee oeooen $oee- cee foeeceeosfoeccooon} 
+344 13) 3 ; any value, most Likely 0 : 
0 90 1 ; 3 ener preg sg) perenge- yre-eup- wren 
B89 ! : : BB+(2n)+8: ‘ size in blocks of the image i 
0890 : 5: BB+(2*n)+12: H offset to load A i 
+944 . ; : BB+(2*n)+16: H “offset into image to start i 
tty 139 : BB+(2tn) +20: {| sum of the previous three LW's! 
' : inputs: 
: rl = address of the block 
> outputs: 
148 ; 
1 ; 
150 ; 
151 ; 
152 ; 
1 
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verify_boot_block: 
50 clrl r0 sassume not a valid block 
18 61 281 cmpw (r1),#*x18 ~VAX instruction set id? 
20 «(12 bneq 10$ tbr if 
52 02 A1 1 8] addb3S) s #*x18,2(r1),r2 :get optional value 
. mcomb r2.r sones’s complement it 
O3 al § 9 
le ie bneq 1 continue no match 
52 OC Al OB Al C addl(3 s- 8(r1),12¢r1),r2 scheck other words 
52 10 a1 C0 addt = s- 16 (rr 1$,r2 iget augment to load address 
14 Al D1 capl r2,20(r1) epateh? 
12 bneq 108 f no 
+4 incl cr ssuccess 
0 10$: rsb 
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170 ; ++ ; 
\y ; verify _image_memory 
B 178 3 functional description: 
175 ; This routine checks for n contiguous pages from the established load 
8 178 : address. 
198 
; Inputs: 
6 179 ; 
B 160 ; r9 = desired page count 
181 ; riQ = target load address 
1 ¢ 5 rli = address of the RPB 
183 ; ap = boot argument List 
0888 2184 ; 
0 185 
! : verify_image_memory: 
50 0601 8F 3C 188 movzwl. e333. Berio -r0 set error code 
a ae oa oS oe D 2189 rotl PFN for RPB 
7F A DE C1 2190 moval 137% r2 tLast PFN yerentees to be good 
) ae oe 9C CS) 2191 rotl £o52095 7040, ri Starting PFN for read 
51 59 0 C9 135 addl r9,ri iLast+l FN needed to be good 
05 11 QO8CC 219 brb 0 ero or more iterations 
07 18 BC 52 €1 O8C 194 10$: bbc r2,avmb$q_pfnmap+4(ap), ois": :Branch if cannot 
+t 195 yread the entire secondary boot 
F7 52 51 #=F2 08D 196 30$: aoblss ri,r2,10$ Check the next page 
50 01 DO O8D7 2197 mov l #1,r0 tcorrect 
05 O8DA 2198 40S: rsb 
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dB 9 p++ 
+ ; write timeout 
+4 : functional description: 
+4 5 : This sequence runs when a write timeout interrupt occurs. 
DB : : inputs: 
DB § ; PC/PSL are on the stack 
+4 19 3 machine _check_continue = address to continue at or 0 
DB 1 : 
DB 13; 
DB 14; 
dB 15 ; 

0808 1§ 

0808 1 

gue 8 

DBo¢ Y write_timeout_int: 

6—E F88C CF 0 08DC ¢ mov l machine_check_continue,(sp) ;reset Pf 
90 13 O8E1 beql unfielded_scb_int sunexpected error if no continue addr 
50 02 00 O8E3 4 mov #k_bus. tiSecut 6 set code 
02 tt 5 rei done 
08E7 $59 -end ROM_START 


outputs: 
r0 = error code 
align long 
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NAME PROMPT r3 
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NOXDT 
NO_DISK_BOOT_DEVICE_LIST 
NO _FIT 


Om ™m™OnNU—m——o DO NIN OOO 
SO MUM —AVWBOONMO 


VMB_MICROVAX 1 
Symbol table” 


$i.~ 
RPBSL_RESTART 
RPBSL_RSTRIFLG 
RPBSL_SCBB 


~PFNMAP 
RPBSS_TOPSYS 
RPBST FILE 
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V_DISK 
v-avss 
BEVICE_LIST 
FIE gD $cB_T 
LID CSR 
VERIFY_BOOT BLOCK 
veniry IMAGE _MEMORY 
USYSTEMT 
“ARGBYTC 
1_HIPF 
LAGS 
1_PFN 
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! Psect synopsis ! 


gereecenreansrscnreen > 


PSECT name Allocation PSECT No. Attributes 

> Si « ( ) 9 ( 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 

SABS ( § ) ( " NOPIC USR CON ABS LCL NOSHR' EXE RD WRT NOVEC BYTE 

$$$$04B800T ( 2279.) § ( 2.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 

$$$$10800T ( 489.) ( -) NOPIC USR CON’ REL LCL NOSHR’ EXE RD WRT NOVEC BYTE 
VMB_END ( 8.) 4 ( 3+} NOPIC USR CON’ REL LCL NOSHR’ EXE RD WRT NOVEC PAGE 

ssstocuocr ( -»> 05 ¢ 5.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
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! Performance indicators ! 
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Phase Page faults CPU Time Elapsed Time 
Initialization 1 :00:00.21 :00: 1.8 
Command processing 126 :00:00.65 7:00:04. 
Syabol tabl t . 00:02. :00:0 3 

e sor : » :00:02. 
Pass 2 37 705.41 7:00:16. 
Symbol table output :00.1 :00. 
Psect synopsis output 4 " :00:00. 
Cross-reference output . :00:00. 
Assembler run totals 105 ° :01:16.6 


The york ing set Limit was 2100 pages. 

920335 bytes_(180 pages) of virtual memory were used to buffer the intermediate sede. 

isece were 70 pages of symbol table space he to hold 1206 non-local oe local symbols. 
$ 7 source Lines were read in Pass 1, producin object records in Pass 2. 

pages of virtual memory were used to define 24 macros. 
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! Macro Library statistics ! 


ee eceew nn esn sconce e recone sown > 


Macro library name Macros defined 

J $OUA18: uve. ORR Jeuvt B;1 6 

~$255$0UA18: [UV1ROM. OBJ JVMB.MLB; 3 
SCUA18: (SYSLIBISTARLET.MLB: 

TOTALS (all Libraries) 17 


1220 GETS were required to define 17 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$: VMBUVAX1P/08)=08J$: VMBUVAXIP MSRC$: VMBUVAX1P/UPDATE = (BUGS : VMBUVAX1P) +1. 18S: VMB/LIB+L1B$:LIBUVI/LIB 
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